home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ McAfee VirusScan 1.xpl < prev    next >
Text File  |  2001-04-10  |  2KB  |  73 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Program Options\Other Programs\McAfee VirusScan"
  5. "NAME"="Show Splash Screen"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Display VShield splash screen"
  8. "TEXT 2"="Display VirusScan splash screen"
  9. "DESCRIPTION 1"="These options let you configure which splash screens are shown by McAfee VirusScan."
  10. "DESCRIPTION 2"="The VShield splash screen appears when you start your computer (if you have VShield loaded) and the VirusScan splah screen appears when you do a routine scan of your computer."
  11. "DESCRIPTION 3"="Note: When you install DAT or Engine updates, these may reset the splash screens so that they appear again."
  12. "COMMENT 1"="Taken from http://pages.zdnet.com/hampsi/Articles/splash.htm courtesy of the Lockergnome Newsgroups."
  13. "VERSION"="1.0"
  14. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16.  
  17. 'Declaration of some constants
  18. sP="HKLM\Software\McAfee\Scan95\"
  19. sV2="DefaultVSC"
  20. sV1="DefaultVSH"
  21. sN2="bSkipSplash"
  22. sN1="bNoSplash"
  23.  
  24. 'Called when the Plugin is started
  25. SUB Plugin_Initialize
  26.  s=RegReadValue(sP&sV1)
  27.  if IsEmpty(s)=false then
  28.   t=IniReadValue(s,"General",sN1)
  29.   if t="0" then
  30.    Call SetUIElement(1,true)
  31.   end if
  32.  else
  33.   Call Disable()
  34.  end if
  35.  
  36.  s=RegReadValue(sP&sV2)
  37.  if IsEmpty(s)=false then
  38.   t=IniReadValue(s,"ScanOptions",sN2)
  39.   if t="0" then
  40.    Call SetUIElement(2,true)
  41.   end if
  42.  else
  43.   Call Disable()
  44.  end if
  45. END SUB
  46.  
  47. 'Called when the Plugin should validate the Data the user has entered
  48. SUB Plugin_CheckData(ElementIndex)
  49. END SUB
  50.  
  51. 'Called when the Plugin should apply the changes
  52. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  53.  s=GetUIElement(1)
  54.  v=RegReadValue(sP&sV1)
  55.  if s=true then
  56.   Call IniWriteValue(v,"General",sN1,"0")
  57.  else
  58.   Call IniWriteValue(v,"General",sN1,"1")
  59.  end if
  60.  
  61.  s=GetUIElement(2)
  62.  v=RegReadValue(sP&sV2)
  63.  if s=true then
  64.   Call IniWriteValue(v,"ScanOptions",sN2,"0")
  65.  else
  66.   Call IniWriteValue(v,"ScanOptions",sN2,"1")
  67.  end if
  68. END SUB
  69.  
  70. 'Called when the Plugin is about to be removed from memory
  71. SUB Plugin_Terminate
  72. END SUB
  73.